home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AppleScript - The Beta Release
/
AppleScript - The Beta Release.iso
/
Developer Scripts
/
Excel 4.0 AS Examples
/
Demos
/
3d Surface
next >
Wrap
Text File
|
1992-11-25
|
319b
|
9 lines
tell application "Microsoft Excel"
make document
set formula of first cell to "=sin(row()/8)*cos(column()/4)"
duplicate first cell to Range "R1C1:R20C10"
set font of Range "R1C:R20C10" to "Helvetica"
make Chart
set bounds of first window to {10, 100, 500, 350}
set type of first Chart to three D Surface
end tell